/**
 * libpsd - Photoshop file formats (*.psd) decode library
 * Copyright (C) 2004-2007 Graphest Software.
 *
 * libpsd is the legal property of its developers, whose names are too numerous
 * to list here.  Please refer to the COPYRIGHT file distributed with this
 * source distribution.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Library General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 * $Id: effects.c, created by Patrick in 2006.05.23, libpsd@graphest.com Exp $
 */

#include "libpsd.h"
#include "psd_config.h"
#include "psd_system.h"
#include "psd_stream.h"
#include "psd_color.h"
#include "psd_rect.h"
#include "psd_bitmap.h"
#include "psd_math.h"
#include "psd_descriptor.h"


extern psd_status psd_get_layer_drop_shadow(psd_context * context, psd_layer_effects_drop_shadow * drop_shadow);
extern psd_status psd_get_layer_drop_shadow2(psd_context * context, psd_layer_effects_drop_shadow * drop_shadow);
extern psd_status psd_get_layer_inner_shadow(psd_context * context, psd_layer_effects_inner_shadow * inner_shadow);
extern psd_status psd_get_layer_inner_shadow2(psd_context * context, psd_layer_effects_inner_shadow * inner_shadow);
extern psd_status psd_get_layer_outer_glow(psd_context * context, psd_layer_effects_outer_glow * outer_glow);
extern psd_status psd_get_layer_outer_glow2(psd_context * context, psd_layer_effects_outer_glow * outer_glow);
extern psd_status psd_get_layer_inner_glow(psd_context * context, psd_layer_effects_inner_glow * inner_glow);
extern psd_status psd_get_layer_inner_glow2(psd_context * context, psd_layer_effects_inner_glow * inner_glow);
extern psd_status psd_get_layer_bevel_emboss(psd_context * context, psd_layer_effects_bevel_emboss * bevel_emboss);
extern psd_status psd_get_layer_bevel_emboss2(psd_context * context, psd_layer_effects_bevel_emboss * bevel_emboss);
extern psd_status psd_get_layer_color_overlay(psd_context * context, psd_layer_effects_color_overlay * color_overlay);
extern psd_status psd_get_layer_color_overlay2(psd_context * context, psd_layer_effects_color_overlay * color_overlay);
extern psd_status psd_get_layer_gradient_overlay2(psd_context * context, psd_layer_effects_gradient_overlay * gradient_overlay);
extern psd_status psd_get_layer_pattern_overlay2(psd_context * context, psd_layer_effects_pattern_overlay * pattern_overlay);
extern psd_status psd_get_layer_stroke2(psd_context * context, psd_layer_effects_stroke * stroke);
extern psd_status psd_get_layer_satin2(psd_context * context, psd_layer_effects_satin * satin);
extern psd_status psd_layer_effects_blend_drop_shadow(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_inner_shadow(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_outer_glow(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_inner_glow(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_satin(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_color_overlay(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_gradient_overlay(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_pattern_overlay(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_stroke(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_status psd_layer_effects_blend_bevel_emboss(psd_context * context, psd_layer_record * layer, psd_layer_effects * data);
extern psd_bool psd_layer_check_restricted(psd_context * context, psd_layer_record * layer);
extern void psd_layer_blend_normal(psd_context * context, psd_layer_record * layer, psd_rect * dst_rect);
extern void psd_layer_blend(psd_context * context, psd_layer_record * layer, psd_rect * dst_rect);
extern void psd_layer_blend_normal_restricted(psd_context * context, psd_layer_record * layer, psd_rect * dst_rect);
extern void psd_layer_blend_restricted(psd_context * context, psd_layer_record * layer, psd_rect * dst_rect);


// Effects Layer (Photoshop 5.0)
psd_status psd_get_layer_effects(psd_context * context, psd_layer_record * layer)
{
    psd_layer_effects * data;
    psd_int i, size;
    psd_uint tag;
    
    layer->layer_info_type[layer->layer_info_count] = psd_layer_info_type_effects;

    data = (psd_layer_effects *)psd_malloc(sizeof(psd_layer_effects));
    if(data == NULL)
        return psd_status_malloc_failed;
    memset(data, 0, sizeof(psd_layer_effects));
    layer->layer_info_data[layer->layer_info_count] = (psd_uint)(void *)data;
    layer->layer_info_count ++;

    // Version: 0
    if(psd_stream_get_short(context) != 0)
        return psd_status_effects_unsupport_version;

    // Effects count: may be 6 (for the 6 effects in Photoshop 5 and 6) or 7 (for
    // Photoshop 7.0)
    data->effects_count = psd_stream_get_short(context);

    for(i = 0; i < data->effects_count; i ++)
    {
        // Signature: '8BIM'
        tag = psd_stream_get_int(context);
        if(tag != '8BIM')
            return psd_status_effects_signature_error;

        // Effects signatures
        tag = psd_stream_get_int(context);
        switch(tag)
        {
            case 'cmnS':    // common state
                // Effects layer, common state info
                // Size of next three items: 7
                size = psd_stream_get_int(context);
                psd_assert(size == 7);
                // Version: 0
                if(psd_stream_get_int(context) != 0)
                    return psd_status_common_state_unsupport_version;
                // Visible: always psd_true
                data->visible = psd_stream_get_bool(context);
                // Unused: always 0
                psd_stream_get_short(context);
                break;
                
            case 'dsdw':    // drop shadow
                psd_get_layer_drop_shadow(context, &data->drop_shadow);
                data->fill[psd_layer_effects_type_drop_shadow] = psd_true;
                data->valid[psd_layer_effects_type_drop_shadow] = psd_true;
                break;
            case 'isdw':    // inner shadow
                psd_get_layer_inner_shadow(context, &data->inner_shadow);
                data->fill[psd_layer_effects_type_inner_shadow] = psd_true;
                data->valid[psd_layer_effects_type_inner_shadow] = psd_true;
                break;
            case 'oglw':    // outer glow
                psd_get_layer_outer_glow(context, &data->outer_glow);
                data->fill[psd_layer_effects_type_outer_glow] = psd_true;
                data->valid[psd_layer_effects_type_outer_glow] = psd_true;
                break;
            case 'iglw':    // inner glow
                psd_get_layer_inner_glow(context, &data->inner_glow);
                data->fill[psd_layer_effects_type_inner_glow] = psd_true;
                data->valid[psd_layer_effects_type_inner_glow] = psd_true;
                break;
            case 'bevl':    // bevel
                psd_get_layer_bevel_emboss(context, &data->bevel_emboss);
                data->fill[psd_layer_effects_type_bevel_emboss] = psd_true;
                data->valid[psd_layer_effects_type_bevel_emboss] = psd_true;
                break;
            case 'sofi':    // solid fill (Photoshop 7.0)
                psd_get_layer_color_overlay(context, &data->color_overlay);
                data->fill[psd_layer_effects_type_color_overlay] = psd_true;
                data->valid[psd_layer_effects_type_color_overlay] = psd_true;
                break;
                
            default:
                psd_assert(0);
                return psd_status_unsupport_effects_type;
        }
    }

    return psd_status_done;
}

// Object-based effects layer info (Photoshop 6.0)
psd_status psd_get_layer_effects2(psd_context * context, psd_layer_record * layer)
{
    psd_layer_effects * data;
    psd_int length, number_items;
    psd_uint rootkey, type, key;
    psd_uchar keychar[256];
    
    layer->layer_info_type[layer->layer_info_count] = psd_layer_info_type_effects2;

    data = (psd_layer_effects *)psd_malloc(sizeof(psd_layer_effects));
    if(data == NULL)
        return psd_status_malloc_failed;
    memset(data, 0, sizeof(psd_layer_effects));
    layer->layer_info_data[layer->layer_info_count] = (psd_uint)(void *)data;
    layer->layer_info_count ++;
    
    // Object effects version: 0
    if(psd_stream_get_int(context) != 0)
        return psd_status_effects_unsupport_version;

    // Descriptor version ( = 16 for Photoshop 6.0).
    if(psd_stream_get_int(context) != 16)
        return psd_status_effects_unsupport_version;

    // Unicode string: name from classID
    length = psd_stream_get_int(context) * 2;
    psd_stream_get_null(context, length);

    // classID: 4 bytes (length), followed either by string or (if length is zero) 4-
    // byte classID
    length = psd_stream_get_int(context);
    if(length == 0)
        psd_stream_get_int(context);
    else
        psd_stream_get_null(context, length);

    // Number of items in descriptor
    number_items = psd_stream_get_int(context);
    
    while(number_items--)
    {
        length = psd_stream_get_int(context);
        if(length == 0)
            rootkey = psd_stream_get_int(context);
        else
        {
            rootkey = 0;
            psd_stream_get(context, keychar, length);
            keychar[length] = 0;
        }
        // Type: OSType key
        type = psd_stream_get_int(context);

        switch(rootkey)
        {
            case 0:
                // pattern overlay
                if(strcmp(keychar, "patternFill") == 0)
                {
                    // Descriptor
                    psd_assert(type == 'Objc');
                    psd_get_layer_pattern_overlay2(context, &data->pattern_overlay);
                    data->fill[psd_layer_effects_type_pattern_overlay] = psd_true;
                    data->valid[psd_layer_effects_type_pattern_overlay] = psd_true;
                    data->effects_count ++;
                }
                else
                {
                    psd_assert(0);
                    psd_stream_get_object_null(type, context);
                }
                break;

            // scale, do not used
            case 'Scl ':
                // Unit psd_float
                psd_assert(type == 'UntF');

                // percent
                key = psd_stream_get_int(context);
                psd_assert(key == '#Prc');
                // Actual value (double)
                psd_stream_get_double(context);

                number_items --;
                length = psd_stream_get_int(context);
                if(length == 0)
                    psd_stream_get_int(context);
                else
                    psd_stream_get_null(context, length);
                // Type: OSType key
                type = psd_stream_get_int(context);
                psd_assert(type == 'bool');
                // Boolean value
                data->visible = psd_stream_get_bool(context);
                break;

            // drop shadow
            case 'DrSh':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_drop_shadow2(context, &data->drop_shadow);
                data->fill[psd_layer_effects_type_drop_shadow] = psd_true;
                data->valid[psd_layer_effects_type_drop_shadow] = psd_true;
                data->effects_count ++;
                break;

            // inner shadow
            case 'IrSh':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_inner_shadow2(context, &data->inner_shadow);
                data->fill[psd_layer_effects_type_inner_shadow] = psd_true;
                data->valid[psd_layer_effects_type_inner_shadow] = psd_true;
                data->effects_count ++;
                break;

            // outer glow
            case 'OrGl':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_outer_glow2(context, &data->outer_glow);
                data->fill[psd_layer_effects_type_outer_glow] = psd_true;
                data->valid[psd_layer_effects_type_outer_glow] = psd_true;
                data->effects_count ++;
                break;

            // inner glow
            case 'IrGl':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_inner_glow2(context, &data->inner_glow);
                data->fill[psd_layer_effects_type_inner_glow] = psd_true;
                data->valid[psd_layer_effects_type_inner_glow] = psd_true;
                data->effects_count ++;
                break;

            // bevel and emboss
            case 'ebbl':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_bevel_emboss2(context, &data->bevel_emboss);
                data->fill[psd_layer_effects_type_bevel_emboss] = psd_true;
                data->valid[psd_layer_effects_type_bevel_emboss] = psd_true;
                data->effects_count ++;
                break;

            // satin
            case 'ChFX':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_satin2(context, &data->satin);
                data->fill[psd_layer_effects_type_satin] = psd_true;
                data->valid[psd_layer_effects_type_satin] = psd_true;
                data->effects_count ++;
                break;

            // color overlay
            case 'SoFi':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_color_overlay2(context, &data->color_overlay);
                data->fill[psd_layer_effects_type_color_overlay] = psd_true;
                data->valid[psd_layer_effects_type_color_overlay] = psd_true;
                data->effects_count ++;
                break;

            // gradient overlay
            case 'GrFl':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_gradient_overlay2(context, &data->gradient_overlay);
                data->fill[psd_layer_effects_type_gradient_overlay] = psd_true;
                data->valid[psd_layer_effects_type_gradient_overlay] = psd_true;
                data->effects_count ++;
                break;

            // stroke
            case 'FrFX':
                // Descriptor
                psd_assert(type == 'Objc');
                psd_get_layer_stroke2(context, &data->stroke);
                data->fill[psd_layer_effects_type_stroke] = psd_true;
                data->valid[psd_layer_effects_type_stroke] = psd_true;
                data->effects_count ++;
                break;

            default:
                psd_assert(0);
                psd_stream_get_object_null(type, context);
                break;
        }
    }

    return psd_status_done;
}

psd_status psd_layer_effects_update(psd_layer_record * layer, psd_layer_effects_type type)
{
    psd_layer_effects * data = NULL;
    psd_int i;
    
    if(layer == NULL)
        return psd_status_invalid_layer;
    if(type < 0 || type >= psd_layer_effects_type_count)
        return psd_status_invalid_layer_effects;

    for(i = 0; i < layer->layer_info_count; i ++)
    {
        if(layer->layer_info_type[i] == psd_layer_info_type_effects)
        {
            data = (psd_layer_effects *)layer->layer_info_data[i];
            break;
        }
    }
    if(data == NULL)
        return psd_status_invalid_layer_effects;
    
    data->valid[type] = psd_true;

    return psd_status_done;
}


#ifdef PSD_SUPPORT_EFFECTS_BLEND

psd_static void psd_layer_blend_effects_image(psd_context * context, psd_layer_record * layer, 
    psd_rect * dst_rect, psd_layer_effects * data, psd_int index)
{
    psd_rect layer_rect, mask_rect;
    psd_layer_record effects_layer;

    if(data->image_data[index] == NULL || data->opacity[index] == 0)
        return;
    
    memcpy(&effects_layer, layer, sizeof(psd_layer_record));
    effects_layer.left = data->left[index] + layer->left;
    effects_layer.top = data->top[index] + layer->top;
    effects_layer.right = data->right[index] + layer->left;
    effects_layer.bottom = data->bottom[index] + layer->top;
    effects_layer.width = data->width[index];
    effects_layer.height = data->height[index];
    effects_layer.fill_opacity = data->opacity[index];
    effects_layer.blend_mode = data->blend_mode[index];
    effects_layer.image_data = data->image_data[index];
    effects_layer.layer_mask_info.disabled = psd_true;

    psd_make_rect(&layer_rect, effects_layer.left, effects_layer.top, effects_layer.right, effects_layer.bottom);
    if(psd_incept_rect(dst_rect, &layer_rect, &layer_rect) == psd_true)
    {
        if(effects_layer.layer_mask_info.disabled == psd_false && effects_layer.layer_mask_info.mask_data != NULL && effects_layer.layer_mask_info.default_color == 0)
        {
            psd_make_rect(&mask_rect, effects_layer.layer_mask_info.left, effects_layer.layer_mask_info.top,
                effects_layer.layer_mask_info.right, effects_layer.layer_mask_info.bottom);
            if(psd_incept_rect(&mask_rect, &layer_rect, &layer_rect) == psd_false)
                return;
        }
        
        if(psd_layer_check_restricted(context, &effects_layer) == psd_true)
        {
            if(effects_layer.blend_mode != psd_blend_mode_normal ||
                (effects_layer.group_layer != NULL && effects_layer.group_layer->divider_blend_mode != psd_blend_mode_pass_through))
                psd_layer_blend_restricted(context, &effects_layer, &layer_rect);
            else
                psd_layer_blend_normal_restricted(context, &effects_layer, &layer_rect);
        }
        else
        {
            if(effects_layer.blend_mode != psd_blend_mode_normal ||
                (effects_layer.group_layer != NULL && effects_layer.group_layer->divider_blend_mode != psd_blend_mode_pass_through))
                psd_layer_blend(context, &effects_layer, &layer_rect);
            else
                psd_layer_blend_normal(context, &effects_layer, &layer_rect);
        }
    }
}

psd_bool psd_layer_effects_blend_background(psd_context * context, psd_layer_record * layer, psd_rect * dst_rect)
{
    psd_layer_effects * data = NULL;
    psd_int i;

    if(layer->image_data == NULL || layer->width <= 0 || layer->height <= 0)
        return psd_false;

    for(i = 0; i < layer->layer_info_count; i ++)
    {
        if(layer->layer_info_type[i] == psd_layer_info_type_effects2)
        {
            data = (psd_layer_effects *)layer->layer_info_data[i];
            break;
        }
    }
    if(data == NULL)
    {
        for(i = 0; i < layer->layer_info_count; i ++)
        {
            if(layer->layer_info_type[i] == psd_layer_info_type_effects)
            {
                data = (psd_layer_effects *)layer->layer_info_data[i];
                break;
            }
        }
    }
    if(data == NULL)
        return psd_false;

    if(data->effects_count == 0 || data->visible == psd_false)
        return psd_false;

    for(i = psd_layer_effects_type_count - 1; i >= 0; i --)
    {
        if(data->fill[i] == psd_false)
            continue;

        switch(i)
        {
            case psd_layer_effects_type_drop_shadow:
                if(data->drop_shadow.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_drop_shadow(context, layer, data);
                break;
            case psd_layer_effects_type_bevel_emboss:
                if(data->bevel_emboss.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    NULL;
                break;
            default:
                continue;
        }

        if(i == psd_layer_effects_type_bevel_emboss)
        {
            psd_layer_blend_effects_image(context, layer, dst_rect, data, 
                psd_layer_effects_bevel_emboss_outer_shadow);
            psd_layer_blend_effects_image(context, layer, dst_rect, data, 
                psd_layer_effects_bevel_emboss_inner_shadow);
        }
        else
        {
            psd_layer_blend_effects_image(context, layer, dst_rect, data, i);
        }
    }

    return psd_true;
}

psd_bool psd_layer_effects_blend_foreground(psd_context * context, psd_layer_record * layer, psd_rect * dst_rect)
{
    psd_layer_effects * data = NULL;
    psd_int i;

    if(layer->image_data == NULL || layer->width <= 0 || layer->height <= 0)
        return psd_false;
    
    for(i = 0; i < layer->layer_info_count; i ++)
    {
        if(layer->layer_info_type[i] == psd_layer_info_type_effects2)
        {
            data = (psd_layer_effects *)layer->layer_info_data[i];
            break;
        }
    }
    if(data == NULL)
    {
        for(i = 0; i < layer->layer_info_count; i ++)
        {
            if(layer->layer_info_type[i] == psd_layer_info_type_effects)
            {
                data = (psd_layer_effects *)layer->layer_info_data[i];
                break;
            }
        }
    }
    if(data == NULL)
        return psd_false;

    if(data->effects_count == 0 || data->visible == psd_false)
        return psd_false;

    for(i = psd_layer_effects_type_count - 1; i >= 0; i --)
    {
        if(data->fill[i] == psd_false)
            continue;

        switch(i)
        {
            case psd_layer_effects_type_inner_shadow:
                if(data->inner_shadow.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_inner_shadow(context, layer, data);
                break;
            case psd_layer_effects_type_outer_glow:
                if(data->outer_glow.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_outer_glow(context, layer, data);
                break;
            case psd_layer_effects_type_inner_glow:
                if(data->inner_glow.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_inner_glow(context, layer, data);
                break;
            case psd_layer_effects_type_bevel_emboss:
                if(data->bevel_emboss.effect_enable == psd_false)
                    continue;
                // do nothing
                break;
            case psd_layer_effects_type_satin:
                if(data->satin.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_satin(context, layer, data);
                break;
            case psd_layer_effects_type_color_overlay:
                if(data->color_overlay.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_color_overlay(context, layer, data);
                break;
            case psd_layer_effects_type_gradient_overlay:
                if(data->gradient_overlay.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_gradient_overlay(context, layer, data);
                break;
            case psd_layer_effects_type_pattern_overlay:
                if(data->pattern_overlay.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_pattern_overlay(context, layer, data);
                break;
            case psd_layer_effects_type_stroke:
                if(data->stroke.effect_enable == psd_false)
                    continue;
                if(data->valid[i] == psd_true)
                    psd_layer_effects_blend_stroke(context, layer, data);
                break;
            default:
                continue;
        }
        
        if(data->image_data[i] == NULL)
            continue;

        if(i == psd_layer_effects_type_bevel_emboss)
        {
            psd_layer_blend_effects_image(context, layer, dst_rect, data, 
                psd_layer_effects_bevel_emboss_outer_light);
            psd_layer_blend_effects_image(context, layer, dst_rect, data, 
                psd_layer_effects_bevel_emboss_inner_light);
            psd_layer_blend_effects_image(context, layer, dst_rect, data, 
                psd_layer_effects_bevel_emboss_texture);
        }
        else
        {
            psd_layer_blend_effects_image(context, layer, dst_rect, data, i);
        }
    }

    return psd_true;
}

void psd_effects_add_noise(psd_bitmap * bitmap, psd_int noise, psd_int left, psd_int top, psd_context * context)
{
    psd_int i, j, x, y, width, height;
    psd_int src_alpha, dst_alpha, next_alpha;
    psd_argb_color * src_data, * dst_data;
    psd_uchar * rand_data;
    psd_bitmap noise_bmp;

    width = bitmap->width;
    height = bitmap->height;
    psd_get_bitmap(&noise_bmp, width, height, context);
    psd_fill_bitmap(&noise_bmp, psd_color_clear);

    for(i = PSD_MAX(-top, 0); i < height; i ++)
    {
        if(i + top >= context->height)
            break;
        
        src_data = bitmap->image_data + i * bitmap->width + PSD_MAX(-left, 0);
        rand_data = context->rand_data + (i + top) * context->width + left;
        for(j = PSD_MAX(-left, 0); j < width; j ++, src_data ++, rand_data ++)
        {
            if(j + left >= context->width)
                break;
            
            x = j + (*rand_data >> 4) - 8;
            y = i + (*rand_data & 0x0F) - 8;
            x = (x + j) >> 1;
            y = (y + i) >> 1;
            if(x < 0 || x >= width || y < 0 || y >= height)
                continue;

            src_alpha = PSD_GET_ALPHA_COMPONENT(*src_data);
            dst_data = noise_bmp.image_data + y * width + x;
            dst_alpha = PSD_GET_ALPHA_COMPONENT(*dst_data);
            if(dst_alpha + src_alpha <= 255)
            {
                dst_alpha = dst_alpha + src_alpha;
                *dst_data = (*src_data & 0x00FFFFFF) | (dst_alpha << 24);
            }
            else
            {
                *dst_data = (*src_data & 0x00FFFFFF) | 0xFF000000;
                if(x + 1 < width)
                {
                    next_alpha = dst_alpha + src_alpha - 255;
                    *(dst_data + 1) = (*src_data & 0x00FFFFFF) | (next_alpha << 24);
                }
            }
        }
    }

    noise = noise * 256 / 100;
    if(noise == 256)
    {
        psd_copy_bitmap(bitmap, &noise_bmp);
    }
    else
    {
        src_data = noise_bmp.image_data;
        dst_data = bitmap->image_data;
        for(i = width * height; i --; src_data ++, dst_data ++)
        {
            src_alpha = PSD_GET_ALPHA_COMPONENT(*src_data);
            dst_alpha = PSD_GET_ALPHA_COMPONENT(*dst_data);
            dst_alpha = ((dst_alpha << 8) + (src_alpha - dst_alpha) * noise) >> 8;
            *dst_data = (*dst_data & 0x00FFFFFF) | (dst_alpha << 24);
        }
    }
}

void psd_effects_apply_gradient(psd_bitmap * bitmap, psd_argb_color * gradient_table, psd_bool edge_hidden, 
    psd_int jitter, psd_int left, psd_int top, psd_context * context)
{
    psd_int i, j, alpha, gradient_index;
    psd_argb_color * dst_data;
    psd_uchar * rand_data;
    
    if(jitter > 0)
    {
        jitter = jitter * 256 / 100;
        for(i = PSD_MAX(-top, 0); i < bitmap->height; i ++)
        {
            if(i + top >= context->height)
                break;
            
            dst_data = bitmap->image_data + i * bitmap->width + PSD_MAX(-left, 0);
            rand_data = context->rand_data + (i + top) * context->width + left;
            for(j = PSD_MAX(-left, 0); j < bitmap->width; j ++, dst_data ++, rand_data ++)
            {
                if(j + left >= context->width)
                    break;
                alpha = PSD_GET_ALPHA_COMPONENT(*dst_data);
                gradient_index = 255 - alpha;
                gradient_index += jitter * *rand_data >> 8;
                gradient_index &= 0xFF;
                
                if(edge_hidden == psd_true && alpha < 24)
                {
                    if(PSD_GET_ALPHA_COMPONENT(gradient_table[gradient_index]) != 255)
                    {
                        *dst_data = gradient_table[gradient_index];
                    }
                    else
                    {
                        *dst_data = (gradient_table[gradient_index] & 0x00FFFFFF) | 
                            (alpha * 10 * PSD_GET_ALPHA_COMPONENT(gradient_table[gradient_index]) >> 8 << 24);
                    }
                }
                else
                {
                    *dst_data = gradient_table[gradient_index];
                }
            }
        }
    }
    else
    {
        dst_data = bitmap->image_data;
        for(i = bitmap->width * bitmap->height; i --; )
        {
            alpha = PSD_GET_ALPHA_COMPONENT(*dst_data);
            if(edge_hidden == psd_true && alpha < 24)
            {
                if(PSD_GET_ALPHA_COMPONENT(gradient_table[255 - alpha]) != 255)
                {
                    *dst_data = gradient_table[255 - alpha];
                }
                else
                {
                    *dst_data = (gradient_table[255 - alpha] & 0x00FFFFFF) | 
                        (alpha * 10 * PSD_GET_ALPHA_COMPONENT(gradient_table[255 - alpha]) >> 8 << 24);
                }
            }
            else
            {
                *dst_data = gradient_table[255 - alpha];
            }
            dst_data ++;
        }
    }
}

#endif // ifdef PSD_SUPPORT_EFFECTS_BLEND


psd_static void psd_gradient_color_free(psd_gradient_color * gradient_color)
{
    psd_freeif(gradient_color->name);
    psd_freeif(gradient_color->color_stop);
    psd_freeif(gradient_color->transparency_stop);
}

psd_static void psd_pattern_info_free(psd_pattern_info * pattern_info)
{
    psd_freeif(pattern_info->name);
}

void psd_layer_effects_free(psd_uint layer_info)
{
    psd_layer_effects * data;
    psd_int i;
    
    data = (psd_layer_effects *)layer_info;
    if(data == NULL)
        return;

    for(i = 0; i < psd_layer_effects_image_count; i ++)
    {
        psd_freeif(data->image_data[i]);
        data->image_data[i] = NULL;
    }

    psd_pattern_info_free(&data->bevel_emboss.texture_pattern_info);
    psd_gradient_color_free(&data->gradient_overlay.gradient_color);
    psd_pattern_info_free(&data->pattern_overlay.pattern_info);
    psd_gradient_color_free(&data->stroke.gradient_color);
    psd_pattern_info_free(&data->stroke.pattern_info);

    psd_free(data);
}

